perm filename TAKL.PSL[TIM,LSP] blob sn#738491 filedate 1984-01-10 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00003 ENDMK
CāŠ—;

(defun listn (n)
    (cond
      ((izerop n)
	nil)
      (t (cons n (listn (isub1 n))))))

(defun mas (x y z)
    (cond
      ((not (shorterp y x))
	z)
      (t (mas (mas (cdr x)
		   y z)
	      (mas (cdr y)
		   z x)
	      (mas (cdr z)
		   x y)))))

(defun shorterp (x y)
       (and y (or (null x)
		  (shorterp (cdr x)
			    (cdr y)))))

(setq 18l (listn 18)
      12l (listn 12)
      6l (listn 6))

(defun timit () (mas 18l 12l 6l))